110 REM COM AND-OR 64
120 REM DR. SCOTT M. HUSE AND/OR WILLIAM D. TAYLOR
160 POKE53280,15:POKE53281,15:PRINT"[147][144]"
170 POKE2040,13:FORL=832TO894:READD:POKEL,D:NEXT:V=53248:POKEV+21,1:POKEV+39,0
180 POKEV+29,1:POKEV,25:POKEV+1,55
190 PRINTTAB(17)"COM AND-OR 64":PRINTTAB(17)"[163][163][163] [163][163][163] [163][163] [163][163]"
200 INPUT"DECIMAL NUMBER (0-255)";D:PRINT""
210 IFD<0ORD>255ORD<>INT(D)THENRUN
220 L$="       [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
230 L2$="[195][195][195][195][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179]"
240 PRINTSPC(7)"[176][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][174]";
250 PRINT"BIT #  [194] 7 [194] 6 [194] 5 [194] 4 [194] 3 [194] 2 [194] 1 [194] 0 [194]";
260 PRINTL$"BIT VAL[194]128[194] 64[194] 32[194] 16[194] 8 [194] 4 [194] 2 [194] 1 [194]";:PRINTL2$;
270 PRINTL$"   ";:N=D:GOSUB360
280 PRINTL$"AND";:N=255*RND(1):GOSUB360:PRINTL$;L2$;
290 PRINTL$" = ";:N=NANDD:GOSUB360
300 PRINTL$"OR ";:D=N:N=255*RND(1):GOSUB360:PRINTL$;L2$;
310 PRINTL$" = ";:N=DORN:GOSUB360
320 PRINTSPC(7)"[173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189]";
330 PRINTSPC(13)"PRESS <SPACE BAR>..."
340 GETK$:IFK$<>" "THEN340
350 RUN
360 N=INT(N):PRINTSPC(4-LEN(STR$(N)))N"[157][194]";
370 FORL=7TO0STEP-1:PRINT-((NAND2^L)=2^L)"[194]";:NEXT:RETURN
380 PRINT-((NAND2^L)=2^L)"[194]";:NEXT
390 RETURN
400 DATA 127,255,224,127,255,240,120,000
410 DATA 048,247,240,016,244,144,016,240
420 DATA 128,016,240,187,144,240,145,016
430 DATA 241,223,016,112,017,016,112,059
440 DATA 144,120,000,048,127,255,240,056
450 DATA 030,112,031,255,240,000,000,000
460 DATA 127,255,248,114,170,164,057,085
470 DATA 082,012,047,225,007,255,255,150